home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / prolog / brklyprl.lha / Emulator / Tests / Passed / test17.pl < prev    next >
Encoding:
Text File  |  1989-04-14  |  224 b   |  9 lines
  1.  
  2. /* Copyright (C) 1988, 1989 Herve' Touati, Aquarius Project, UC Berkeley */
  3.  
  4. main :- e(Y), built_list(4,Y,X), e(Y), write(X), nl.
  5.  
  6. built_list(0,_,[]).
  7. built_list(N, Y, [[Y]|[Z]]) :- N1 is N - 1, built_list(N1, Y, Z).
  8.  
  9. e(Y).